@ARGV = qw(testhere.pl closure.pl hello.pl);

my $semi_count;
$semi_count += tr/;// while <>;