Select Code to Download

use Algorithm::Loops qw( NestedLoops );

...
   my %args = @_;
   print(join(', ', map { "$_ => $args{$_}" } keys %args), "\n");
}

use Algorithm::Loops qw( NestedLoops );

...
sub function {
   print(join(', ', @_), "\n");
}