Sorry, was tired. I meant

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

My code would have given you a compile-time error had you used use strict;.