Select Code to Download

use strict;
use warnings;
sub blubb($)
...
}
my @array = (1, 2, 3);
blubb(\@array);

my @array2 = reverse @array;
blubb(\@array2);