my $foo = {
   my ($first, $second) = @_;
   print "first argument: [$first]\n";
   print "second one    : [$second]\n";
}
$foo->("bar", "baz");