@data = sort {rand < rand} @data;
$data[0]+$data[1]+$data[2]+$data[3] == 15 and push @stored, [splice @data, 0, 4];