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