Select Code to Download

my @values = values (%$result);
foreach my $key (@values) {
...
}
....
#(testing status)

#!/usr/bin/perl

...

print "status: $status\n";

$ perl benco.pl
Global symbol "$status" requires explicit package name at benco.pl lin
+e 15.
Execution of benco.pl aborted due to compilation errors.

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)