Array Perl

@array = (1, 2, 3);
print $array[0];