7 lines
126 B
Perl
7 lines
126 B
Perl
|
use Text::Abbrev;
|
||
|
|
|
||
|
|
%hash = abbrev qw(Now is the time);
|
||
|
|
|
||
|
|
foreach $key (keys %hash) {
|
||
|
|
print "$key => $hash{$key}\n";
|
||
|
|
}
|