ohh , forgot to post the code.
i did intentonally wrong code to test -w and use strict
here is the code
#!/usr/local/bin/perl -w
use strict;
#@food = ("apples", "pears", "eels");
#$l=push(@food, "eggs", "lard");
#($a, $b) = @food;
#$f ="@food";
#print $b;
#($a, $b) = ($c, $d);
$d='009'...