my $sth = $dbh->prepare($sql, { RaiseError => 1 });

$sth->execute();

my @new;
while (my $row = $sth->fetch()) {
   $row[0] =~ s/2009/01112009/g;
   $row[4] =~ s/204/APROV/g;
   $row[5] =~ s/john/John/g;

   # Can't just push $row.
   # Must make copy of $row
   # according to DBI docs.
   push @new, [ @$row ];
}

print(Dumper(\@new));