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