my $var = foo();

sub foo
  {
    return 'bar';
  }

print $var;


##</code><code>##


my $var = foo('some_text_for_instance');


sub foo
   {
    my $text = $_[0];

    return 'bar';
   }


##</code><code>##


my $var = foo($somevar,"some text",$somehashref);

sub foo
  {
   my $variable = $_[0];
   my $text = $_[1];
   my $hashref = $_[2];


   return $hashref->{'some_key'};
  } 
  

##</code><code>##

 
sub foo
  {
   my @private_local_array = @_;

   #then lets return element 5 for some reason

   return $private_local_array[4];
  }