Array Perl

print reverse (1, 2, 3);