open my $fh, '<', $filename or die "Failed to open $filename - $!";

##</code><code>##

while (my $line = <$fh>) {
 # Do something with $line
}

##</code><code>##

my $count = @list;

##</code><code>##

  my $answer = <STDIN>;

##</code><code>##

use strict;
use warnings;