#!/usr/bin/perl -w
use strict;

sub mysub {
   # the args are in @_
   my $bigness = $_[0];              # copy one val
   my ($size, $color, $style) = @_;  # or grab them all
   my $proportions = shift;          # or shift; @_ is implicit
   uc($_[1]);                        # or use @_ directly

   # do stuff with $bigness, $size, etc.

}

mysub('big', 'blue', 'fuzzy');