Select Code to Download

#!/usr/bin/perl

...
$array_ref->[1] =~ s/w//g;

print Dumper($array_ref);

#!/usr/bin/perl

...
}

print Dumper(foo());