Select Code to Download

sub mysay{
    if(@_>=1){
        for(@_){print("$_\n")}
...
        print "$_\n";
    }
}

@a=();
mysay @a;