Select Code to Download

use Report 'report';

...
my %h = ( one => [ 4, 5, 6], two => 'gaga');

report qw( $i $j $h{one} $h{two} $h{three});

$i = 42;
$j = 'freeBSD';
...
           ];
$h{two} = 'gaga';
$h{three} = undef;

package Report;
use strict; use warnings; # @^~`
...
}

1;