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

##</code><code>##

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