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];
}
[download]