Select Code to Download

t|d => dd

dd => t|d

my @results = functional_unglue( @arguments );

use strict;
use Data::Dumper;
...

print Dumper([@results]);

sub functional_unglue {
    my %x = @_;
...
    } @r
}

use strict;
use Data::Dumper;
...
@z = map{join('-',@$_)}@z;
print Dumper([@z]);

$VAR1 = [
          'cowboy-cat-dog',
          'cow-boy-cat-dog'
        ];

my @z = functional_unglue (
    target     => 'zivAzvaH',
...
@z = map{join('-',@$_)}@z;
print Dumper([@z]);

$VAR1 = [
          'ziva-azvas',
...
        ];

use strict;
use Data::Dumper;
...
);
@z = map{join('-',@$_)}@z;
print Dumper([@z]);