for my $line (@lines_from_data_file) {
    my($idx,$fname,$sname,$loc,$time) = $line =~
        /^(\d+),("[^"]+"),("[^"]+"),("[^"]+"),(.*)$/;
}