$ perl -F, -lane '@F % 2 and push @D, {q{Stamp},@F} or $D[-1] = { %{$D[-1]}, @F } }{ $,=","; print @{$_}{qw(Stamp Login SearchResults SearchLoad SearchCount Logout)} for @D' input.txt