Select Code to Download

 
if ($headerStr)
{ 
   my @headerElements = split /\s+/, $headerStr;
}

#!/usr/bin/perl -w

...
b in sub is 45
a outside of sub is 27
b outside of sub is

#!/usr/bin/perl -w
use strict;
...
ref still points to 89 (the memory for the value of 89 is
                        separate from the memory of the
                        value of 28)