sub PUSH { my(@array, @new_items) = @_; push(@array, map { uc } @new_items); } my @target = ('RED', 'GREEN'); PUSH(@target, 'blue'); #### sub PUSH { my($array, @new_items) = @_; push(@$array, map { uc } @new_items); } my @target = ('RED', 'GREEN'); PUSH(\@target, 'blue'); #### sub PUSH (\@@) { my($array, @new_items) = @_; push(@$array, map { uc } @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) = @_; $style = 'solid' unless defined $style; $colour = 'black' unless defined $colour; return "border: $width $style $colour;"; } #### print border('1px'), "\n"; #### my @args; push @args, $selected ? '5px' : '1px'; push @args, 'dashed'; push @args, 'red' if $selected; print border(@args), "\n"; #### "border: 5px dashed red;" #### "border: 3 solid black;"