use strict;
if (@_)
{
 my $var = "ok";
}
print "$var\n";