my %hash;
my @labels = qw(Date,Login,Searchload,Searchsave,Searchdetails,Searchdelete);
while ( my $line = <FILE> ) {
    chomp $line;
    my @fields = split /,/, $line;
    foreach my $label ( @labels ) {
        push @{ $hash{ $label } }, shift @fields;
    }
}