open(FH,"test") || die "You suck because $!";
my %hash = map {sprintf("%02d",$.--),$_} reverse <FH>;
close FH;

print qq{$_ => $hash{$_}\n} for sort keys %hash;