my $s = shift . '!';
$s+++;