my @stuff = <STDIN>;
my $thismany = @stuff;
print "I saw this many ", scalar(@stuff), "\n";
print "I saw this many ", int(@stuff), "\n";
print "I saw this many ", 0+@stuff, "\n";
print "I saw this many $thismany\n";
foreach(@stuff){
    print "I saw $_";
}