ejemploshift

#!/usr/bin/env perl

use strict;

## Dos valores en el array

my @array = ("Tiempo de Tux","itimetux.com");

## Guardamos lo que quita shift en una variable

my $variable = shift(@array);

print "$variable\n";