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

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


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