use Text::Abbrev;

chomp(my @a = <DATA>);
s/\s/_/g foreach @a;
my %hash = abbrev @a;
print "$_ $hash{$_}\n" foreach sort keys %hash;

__DATA__
RPL AUSTRIA AR REPORTING
RPL AUSTRIA AR REV ACCT