print join ',', @arr[ @vals{ sort { $a <=> $b } keys %vals } ];