arraylongitud

#!/usr/bin/env perl

use strict;
my @array;

## Añadimos valores a nuestro array

push(@array,"http://");
push(@array,"itimetux");
push(@array,".com");

## Los imprimimos

print "@array\n";

## Vemos la longitud

print "Mi array: " . @array . "\n";

my $nombre = shift(@array);
my $domain = shift(@array);

## Con esta sintasix vemos la nueva longitud

print "Despues de shift: " . @array . "\n";

## Imprimimos

print "$nombre"."$domain"."\n";