#!/usr/bin/perl
use strict; 
use warnings;

my %dict;
while ( <DATA> ) {
    my ( $key, $val ) = /^(\d+)\s+(\S+)/;
    $dict{ $val } = $key;
    }

my $regex = '\b' . join('\b|\b', map "\Q$_\E", sort {length $b <=> length $a} keys %dict) . '\b';

open my $fh, '<', 'junk.txt' or die "Open failed: $!";

while (defined(my $line = <$fh>)) {
    $line =~ s/($regex)/$dict{lc($1)}/ieg;
    print $line;
}
__DATA__
1 eat
2 habit
3 boy
4 man-kind
5 man
6 kind