#! perl -slw
use strict;

my $uids = [ 9, 1, 4, 7, 2, 0, 3, 6, 8, 5 ];
my $msgs = [ qw[ zero one two three four five six seven eight nine ] ];
my @msgsByUid = @$msgs[ @$uids ];

print for @msgsByUid;
__END__
P:\test>junk
nine
one
four
seven
two
zero
three
six
eight
five