Select Code to Download

  sub PUSH {
    my(@array, @new_items) = @_;
...

  my @target = ('RED', 'GREEN');
  PUSH(@target, 'blue');

  sub PUSH {
    my($array, @new_items) = @_;
...

  my @target = ('RED', 'GREEN');
  PUSH(\@target, 'blue');

  sub PUSH (\@@) {
    my($array, @new_items) = @_;
...

  my @target = ('RED', 'GREEN');
  PUSH @target, 'blue';

     sub border_style ($$$) {

     sub border_style {
       my($width, $style, $colour) = @_;

    sub border ($;$$) {
      my($width, $style, $colour) = @_;
...

      return "border: $width $style $colour;";
    }

    print border('1px'), "\n";

    my @args;
    push @args, $selected ? '5px' : '1px';
...
    push @args, 'red' if $selected;

    print border(@args), "\n";

    "border: 5px dashed red;"

    "border: 3 solid black;"