Select Code to Download

1 eat
2 habit
...
5 man
6 kind
..

my %dict;
while ( <DATA> ) {
...
    $line =~ s/(\S+)/$dict{$1} || $1/eg;
    print $line;
}