my $x = sub {return shift() . shift()};
$a = &$x($a,".pl");