foreach my $code ( keys %{$info} ) {
    print $code . ":";
    foreach my $last ( @{$code} ) {
        print " " . $last;
    }
    print "\n";
}