use strict; use Data::Dumper; use Carp; my %hold; while ( <DATA> ) { chomp; next if (/^\#/); my @elem = split(/\t/,$_); # Keep in Hash of Array # HoA here consumes so much memory push @{$hold{$elem[0]}}, $elem[1]; } # is there a better way to keep/process the array # other than HoA like %hold ? foreach my $key ( sort keys %hold ) { my @ary = @{$hold{$key}}; # then I will process @ary for each key above print "$key\n"; } # in practice there are ~4-5Gb of such lines below __DATA__ #Tags Error_Rate_In_ASCII AATACGGCCACCCCCCCCCCCCCCGCCCCTCCCC INILILFIIIIQNQQNQNLLKFKNCDHA?DAH +HH CTTTCCCTCCACGACGCTCTTCCGCTCTCATGAT QQIQQQQQIQQQIQQLQNQNOPNKIHHHAHHA +AA TCCACTCTTTCCCTACACGACGCTCTTCCGATCT QFQFQQQQQQQQQQQQIQLFNNPONHHHHHDH +HH TCCCCTCTTTCCCTACACGACGCTCTTCCGATCT UIUIUUUUUUUUUULUUUIOUKUNULLLLKKL +LK TGATACGGCGACCACCGAGATCATCACACTTTCC UUUUUUUUUUUUUQUUTUUUUULLUKRHPKIH +HO TGATACGGCGACCACCGAGATCTACACTCTTTCC UOIUIUUUUUUUUIUUUOUOUUUUUKLLLLIK +KL TGATACGGCGACCACCGAGATCTACACTCTTTCC UUUUMUUUUUUUUIUUIUUQUUUUUOOOOOOO +OO TGATACGGCGACCACCGAGATCTACACTCTTTCC UUUUUUUUUUUUUUUUUTUUUUUUURRRRRMP +PQ TGATACGGCGACCACCGAGATCTACACTCTTTCC UUUUUUUUUUUUUUUUUUUUUUTUURRPRRIM +QQ TGATACGGCGACCACCGAGCTCTACACTCTTTCC UUQUUUUUUUMUUUUUUQUUUUUUUOOOOOIO +OO AATTCTGCGCCCCCCCCACTCAGCCCCCCTCCCC LFNFQNQNFLQLIQQLIIQNOCIIIAAAAAHH +HA AGATACGGCCACCACCGAGATCTACACTCTCTCC NFQNIQLFQIFNQNQQFQQNNKKINAHAHH?A +HD TGATACGGCGACCACCGCGATCTACACTCTCTCC UUUUUUUUUUUUUUUUTLUUQUUCUPRRRRHR +NQ TGATCCGGCGACCCCCGAGCTCTACACTCTTTCC QQQQIQQIQQQQQNQQQQQLOOKNPHHHHHHD +HH TGCTCCGGCGACCACCGAGATCTACACTCTTTCC QQIQFQQNQQQQQIQQQLQLNOKIOHHHHHAD +HH TGCTCCGGCGACCACCGAGATCTACACTCTTTCC UIOUOULOUUUUUOUUUOUUUUUUULLKLLIG +LL TGCTCCGGCGACCACCGAGATCTACACTCTTTCC ULOUIUOUUUUUUUUUULUUUUUUULLLLLIG +LL GTCTCCTGCGACCCCCGAGCTCTACACTCTTTCC QLLQIQIFQNQQQIQQNQNLOONNOHHHHHHH +HH TTCTCCTTCGACCACCGAGATCTACACTCTTTCC QLNQIQLIQINQQQQQQLQQOPONOHHHHHHH +HH TTCTCCTTCGACCACCGAGATCTACACTCTTTCC UOUUIUOIUILUUUUUULUUUUUUULLLLLKL +LL
In reply to Memory Efficient Alternatives to Hash of Array by neversaint
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |