Array Perl

@a1 = (1, 2, 3);
print @a1[-2];