use 5.12.0; use strict; use warnings; use Data::Dump; use Data::Dumper; ########################################## system('clear'); # 1. Configuration my @required_keys; my %hist1 = map { $_ => 0 } @required_keys; my %hist2 = map { $_ => 0 } @required_keys; my %hist3 = map { $_ => 0 } @required_keys; while (my $line = ) { chomp($line); my @element = split (/ +/,$line); my $col0= shift @element; #use element[0] as switch and drop from histogram if( $col0==1){ %hist1 = map { $_ => 0 } @element; }elsif( $col0==0){ %hist2 = map { $_ => 0 } @element; }elsif( $col0==5){ %hist3 = map { $_ => 0 } @element }else{ #do stuff here when all else fails, undef/NaNs print "WTF \n"; } }; dd \%hist1; # Verify hash contents dd \%hist2; # Verify hash contents dd \%hist3; # Verify hash contents __DATA__ 0 1 0 2 68fd1e64 80e26c9b 1f89b562 e5ba7672 0 2 1 2 68fd1e64 f0cf0024 0b153874 07c540c4 0 2 14 2 287e684f 0a519c5c 0b153874 8efede7f 0 0 0 0 68fd1e64 2c16a946 0b153874 1e88c74f 0 3 0 0 8cf07265 ae46a29d 0b153874 1e88c74f 5 0 0 0 05db9164 6c9c9cf3 0b153874 776ce399 0 0 0 1 439a44a4 ad4527a2 0b153874 776ce399 1 1 0 0 68fd1e64 2c16a946 1f89b562 e5ba7672 0 0 8 31 05db9164 d833535f 0b153874 e5ba7672 0 0 1 2 05db9164 510b40a5 0b153874 d4bb7bd8 5 0 0 5 05db9164 0468d672 0b153874 776ce399 0 0 6 7 05db9164 9b5fd12f 0b153874 d4bb7bd8 1 0 0 0 241546e0 38a947a1 1f89b562 e5ba7672 1 0 5 4 be589b51 287130e0 361384ce 07c540c4 0 0 4 4 5a9ed9b0 80e26c9b 0b153874 3486227d 0 0 18 1 05db9164 bc6e3dc1 64523cfa 776ce399 1 1 2 2 68fd1e64 38d50e09 0b153874 d4bb7bd8 0 0 0 5 8cf07265 7cd19acc 0b153874 e5ba7672 0 0 2 10 05db9164 f0cf0024 37e4aa92 e5ba7672 0 7 3 15 3c9d8785 b0660259 0b153874 e5ba7672 #### { "0b153874" => 0, "1" => 0, "2" => 0, "38d50e09" => 0, "68fd1e64" => 0, "d4bb7bd8" => 0, } { "0b153874" => 0, "15" => 0, "3" => 0, "3c9d8785" => 0, "7" => 0, "b0660259" => 0, "e5ba7672" => 0, } { "0" => 0, "0468d672" => 0, "05db9164" => 0, "0b153874" => 0, "5" => 0, "776ce399" => 0, }