use strict;
use warnings;

my @list = qw(zero one two three four);
print qq{@list\n};

my @newOrder = (1, 3, 4, 0, 2);
my @newList;

@newList[@newOrder] = @list;
print qq{@newList\n};

@newList = @list[@newOrder];
print qq{@newList\n};