for $user (sort keys %hash) {
    print "$user: @{$hash{$user}} \t";
     print "$loc: @{$location{$loc}} \n";
}

##</code><code>##

for $user (sort keys %hash) {
    print "$user: @{$hash{$user}} \t";
    print "$user: @{$location{$user}} \n";
}