Select Code to Download

my ( $key,$value );

# or...

my ( %tips_by_name, %av_by_name, %max_by_name, %min_by_name );

my $key   = '';
my $value = '';
...
my %av_by_name = '';
my %max_by_name = '';
my %min_by_name = '';