Select Code to Download

#!/usr/bin/perl -w # -*-Perl-*-

...
for ((sort keys %{$hrf})[0,-1]) {
    print @{$hrf->{$_}}[0, -1],"\n";
}

Value of my $cgi:    CGI=HASH(0x80cb854)

...
Our slice of the menu is:
alphasoup
omeganuts