push @LoL, [$key, $value]; #### #!/usr/bin/perl -wl use strict; use Data::Dumper::Simple; my %hash; my @LoL; while () { chomp; my ($key, undef, $value) = split /\s+/, $_, 3; $hash{$key} = $value; push @LoL, $key, $value; } print Dumper(%hash); print Dumper(@LoL); __DATA__ 73 63, galileo measur us newton basi law motion 75 45, galileo experi bodi roll slope act same forc weight effect make constantli speed up 70 50, show real effect forc chang speed bodi set move previous thought 75 50, meant bodi act forc keep move straight line same speed 65 45, idea first state explicitli newton principia mathematica publish 1687 known newton first law 75 50, happen bodi forc act given newton second law #### %hash = ( '70' => 'show real effect forc chang speed bodi set move previous thought', '75' => 'happen bodi forc act given newton second law', '73' => 'galileo measur us newton basi law motion', '65' => 'idea first state explicitli newton principia mathematica publish 1687 known newton first law' ); @LoL = ( '73', 'galileo measur us newton basi law motion', '75', 'galileo experi bodi roll slope act same forc weight effect make constantli speed up', '70', 'show real effect forc chang speed bodi set move previous thought', '75', 'meant bodi act forc keep move straight line same speed', '65', 'idea first state explicitli newton principia mathematica publish 1687 known newton first law', '75', 'happen bodi forc act given newton second law' );