chomp($line); my ($tstamp,@split)=split("\t",$line,16); my %hash; foreach(@split) { my ($key,$val)=split('=',$_,2); $hash{$key}=$val; }