open my $IN, '<', 'data.txt' or die $!;
chomp( my @lines = <$IN> );