Data commit

Task/Input-loop/Perl/input-loop-1.pl

@@ -0,0 +1,6 @@
+open FH, "< $filename" or die "can't open file: $!";
+while (my $line = <FH>) {
+    chomp $line; # removes trailing newline
+    # process $line
+}
+close FH or die "can't close file: $!";

Task/Input-loop/Perl/input-loop-2.pl

@@ -0,0 +1 @@
+@lines = <FH>;

Task/Input-loop/Perl/input-loop-3.pl

@@ -0,0 +1,3 @@
+while (<>) {
+    # $_ contains a line
+}