Select Code to Download

#!/usr/bin/perl -w

...

print Dumper(\@f);
print Dumper(\@e2);

$VAR1 = [
          'bob',
...
          'sue',
          'joe1'
        ];