in reply to sort a hash with split values
use Sort::Key qw(keysort); @sorted = keysort { (split /:/, $hash{$_})[1] } keys %hash; [download]