my @yarra = reverse my @array = qw(one two three);
print "@array @yarra\n";