Inverser un tableau

Utiliser la fonction reverse :

#!/usr/local/bin/perl

use strict;

my @tab = qw(   dernier
                second
                premier
                );

foreach my $tmp (reverse(@tab))
{
        print $tmp."\n";
}