DB<123> sub num { $_[0] =~/(\d+)$/; $1}

  DB<124> sort { num($a) <=> num($b) }  qw/hs12 hs22 hs11 hs10 hs7 hs2
+0 hs16 hs4 hs18/ 
 => ("hs4", "hs7", "hs10", "hs11", "hs12", "hs16", "hs18", "hs20", "hs
+22")
[download]