my @hashes = map {{split}} <>; #Ain't perl neat? #### foreach (@hashes) my %hash = %{$_}; foreach (keys %hash) { print "$_ => $hash{$_}\t"; } print "\n"; } #### my @arrays = map {[split]} <>; # Got it?
## foreach (@hashes) my %hash = %{$_}; foreach (keys %hash) { print "$_ => $hash{$_}\t"; } print "\n"; } ##
## my @arrays = map {[split]} <>; # Got it?