use Sort::Key qw(ikeysort);

my @ordered = ikeysort { $_->{pos} } @unordered;
my @result = ikeysort { $_->{val} } @unordered;