use Report 'report';

my ( $i, $j) = ( 42, 'freeBSD');
my %h = ( one => [ 4, 5, 6], two => 'gaga');

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