my @qb;
foreach my $position ("qb","rb","wr") {
	my @data = #query database;
	for (my $d = 0; $d < @data; $d++) {
		if ($position eq "qb") {
			my @temp = ($data[$d], $data[$d+1], $data[$d+2]);
			push (@qb,@temp);
			#--or--
			push (@qb,($data[$d], $data[$d+1], $data[$d+2]));
			#--or--
			push (@qb,[$data[$d], $data[$d+1], $data[$d+2]]);
			$d+=4;
		}
	}
}
foreach my $player (@qb) {
	print $@player[0] $@player[1] $@player[2];
}