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