for my $i ( 0 .. 10 ) { print "$i\n" }
open my $fh, '<', "/etc/passwd";
while (my $line = <>) { next if /^\s*#/ }