perl -MData::Dumper -lane'push @{ $hash{$F[3]} }, [@F]}{print Dumper \%hash' < data.txt