or download this
#!/usr/bin/perl
...
Global symbol "$surv" requires explicit package name at S:\Steve\Dev\P
+erlMonks\P-2014-04-02@1439-Array-Update-Fail\update1a.pl line 26.
syntax error at S:\Steve\Dev\PerlMonks\P-2014-04-02@1439-Array-Update-
+Fail\update1a.pl line 28, near "}"
S:\Steve\Dev\PerlMonks\P-2014-04-02@1439-Array-Update-Fail\update1a.pl
+ has too many errors.