Select Code to Download

use strict;

my @list = (-25, 14, 50, 20, -7, -8, -10);
...
    push @result, [ $elem ];
    print $elem, "\n" unless $elem;
}