Array Perl

@array = (1, 2, 3);
$variable = @array;
print "\@array has $variable elements.";