Select Code to Download

#! /usr/bin/perl -l                                                   
+        
use strict;                                                           
+        
...
print "outside before calling foo(): @array";                         
+        
foo();                                                                
+        
print "outside after calling foo(): @array";

outside before calling foo(): 1 2 3 4 5
  inside before modification: 1 2 3 4 5
  inside after modification: a b c d e
outside after calling foo(): a b c d e