sub mysub
{
   my ($foo, $bar) = @ARGV;
   #do stuff with $foo and $bar
}