Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print Dumper( $x, \@y );

sub test {}

$VAR1 = undef;
$VAR2 = [
          'a',
          'b'
        ];