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";
|
|
} |