Select Code to Download

my $ref = \{@list[2..4]};

my $ref = [@list[2..4]]

#!/usr/bin/perl
use Data::Dumper;
...
            '4' => undef,
            '2' => 3
          };