while (my @row = $sth->fetchrow_array()){
    push @{$data[0]}, $row[0];
    push @{$data[1]}, $row[1];
}
print Dumper(@data);