try using Sort::Key, it always performs stable sorts:

use Sort::Key qw(ikeysort);

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