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'
);