sub getFoo{
    my ($x,$y) = @_;
    $x . '_' . $y . '_testme.xml';
}

##</code><code>##

sub getFoo{
    sprintf '%s_%s_testme.xml', @_;
}