print join ', ',
  map $vals{$_},
  sort { $a <=> $b }
  keys %vals;