require 'abbrev.pl';
%abdul = ();
&abbrev(*abdul,'he','help','hi','bye','wally','world');
.\"# for (sort keys abdul) { print "$_ $abdul{$_}\n"; }

while (<>) {
	chop;
	$long = $abdul{$_};
	print "$long\n" if length($long);
}