Select Code to Download

$VAR1 = {
          '4' => '3',
...
          '3' => '2',
          '2' => '1'
        };

sub getreports {
    my $target = shift(@_);
...
    print "exiting while % boss with target of $target\n\n";
}

scanning data for x, 2:   4, 3
scanning data for x, 2:   1, 1
...
scanning data for x, 2:   4, 3
scanning data for x, 2:   1, 1
scanning data for x, 2:   3, 2