sub foo 
{
  my ( $arg1, $arg2, $arg3 ) = @_;

  print "Argumente: $arg1, $arg2, $arg3\n";
}

foo( 'Hallo', 'Radio', 'Eriwan' );