Select Code to Download

%locations = (
    "location1" => {
...
    },
    ...
)

use strict;

...
$locations{$temp_info[2]}->{users}->{$temp_info[0]} = $temp_info[1];
$locations{$temp_info[2]}->{otherinfo} = [@temp_info[3..$#temp_info]];