flatten

gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;

use YAML;

sub flatten {
    my @list = @_;
    map {
        my $element = $_;
        my @flattened;

        if (ref $element eq 'ARRAY') {
            push @flattened, flatten(@$_)
        }
        else {
            push @flattened, $element
        }

        @flattened;
    } @list
}

my @flattened = flatten([1, 2, 3], [4, 5, 6, [7, 8]], 9, 10);
print Dump(\@flattened);