Select Code to Download

sub mysay (;+@) {
    return say $_ unless @_;
...
    elsif ( ref $_[0] eq 'HASH'  ) { unshift @_, %{shift()} }
    say join "\n", @_;
}

#!/usr/bin/env perl
use warnings;
...
say "------";
mysay %h, "xyz";
say "######";