Select Code to Download

use strict; use warnings; use feature 'say';
use Data::Dumper;
...

    return @arr;
}

$ perl 1182753.pl
Data:
...
          4
        ];