while <> { @record = split(',',$_); $key = shift(@record); $list{$key} = \@record; }