...
my $sth = $dbh->prepare($sql)|| die $dbh->errstr;
   $sth->execute() or die "$!\n";

my $ary_ref = $sth->fetchall_arrayref();

my $new_array_ref;

foreach my $val (@$ary_ref){

my ($one, $two, $three, $four, $five, $six, $seven, $eight, $nine, $ten, $eleven) =@$val;

#edit here
$one=~s/2009/01112009/g;
$five=~s/204/APROV/g;
$six=~s/john/John/g;

#Data edited ready for the array ref
push @{$new_array_ref} ,$one, $two, $three, $four, $five, $six, $seven, $eight, $nine, $ten, $eleven;

}

print Dumper ($new_array_ref);