sub funky {
  #pseudocode
}
my $var = [ 1, 2, [ 3, 4] ];
use Data::Dumper;
warn Dumper($var);
funky($var);
warn Dumper($var);
__END__
$VAR1 = [
          1,
          2,
          [
            3,
            4
          ]
        ];
$VAR1 = [
          1,
          2,
          [
          ]
        ];