@labels is nasty

[djzort]

loading of @labels is nasty, no warnings and stuff... yuck. try something more like:

Extract labels into hash of index positions :)

my %labels = do {
my $idx = 0;
map { +($_ => $idx++) }
split /,/,
shift @lines;
};

which will look like...
%labels = ( field0 => 0, field1 => 1, field2 => 2);

then later use it like:
$data[$labels{'field'}]