use strict;
use warnings;
                                                                                
my $info = {
          'last' => [
                   'jones',
                   'smith',
                   'long'
                 ]
        };
                                                                                
                                                                                
foreach my $code ( keys %{$info} ) {
    print $code . ":";
    foreach my $last ( @{$info->{$code}} ) {
        print " " . $last;
    }
    print "\n";
}