my $a = 'wolf';
$a = $a . ".pl";