Select Code to Download

#! perl
use strict;
...
    print "$_\n" for @y;
    print "\n";
}

my  @args = (2, 3, 5, 7);
foo(@args);

bar(@args);

bar($args[0], $args[1], $args[2], $args[3]);