Select Code to Download

#!/usr/bin/perl -w
use strict;
...

@hash{ @keys } = @vals;
print $_, " : ", $hash{$_}, $/ for keys %hash;

my $smaller = @array1 > @array2 ? @array2 : @array1;
for my $index ( 0 .. $smaller ) {
...
        }
    }
}