foreach my$key (sort {$hash{$a}->[0] <=> $hash{$b}->[0]}keys%hash)
 {
    print "$key: ";
    foreach my $val (@{$hash{$key}}) {
        print "$val ";
    }
print "\n";
}