Select Code to Download

#!perl

...
my $max    = max (keys %hash);
my $maxstr = maxstr (keys %hash);
say "numeric: $max\tstring: $maxstr";

numeric: 1    string: b