$VAR1 = {
          'last' => [
                   'jones',
                   'smith',
                   'long'
                 ]
        };

##</code><code>##


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