Array Perl

@a1 = (1, 2, 3, 4, 5, 6);
@a2 = reverse @a1;