Select Code to Download

$employee=$infor[ 0 ];
shift @infor;
$sheet{$employee}={data => [@infor]};

foreach (keys $sheet){
    print "\n$_ @{$sheet{$_}->{data}}";
}