$ cat var_gen.pl
#!/usr/bin/env perl
while (<>) {
    chomp;
    my $number = length;
    print "$number\n";
}