c:\@Work\Perl>perl -wMstrict -le
"my @words = qw/this a sentence is/;
 my %dict = map { $_ => $words[$_] } 0 .. $#words;
 ;;
 my @order = (0, 3, 1, 2);
 print join ' ', map $dict{$_}, @order;
"
this is a sentence