print "$_,$key" for
        map { $_->[1] }
        sort { $a->[0] <=> $b->[0] }
        map { [ split /:/, $myHash{$key}{info}[$_], 2 ] }
        0 .. $#{$myHash{$key}{info}};