use strict;

##</code><code>##

use warnings; # as well!

##</code><code>##

my $countline = 0;
my $mytest;
open (MYFILE,"<testing.txt")||die "Could not open input file\n";

##</code><code>##

open my $fh, '<', "testing.txt" or die "Could not open input file: $!\n";

##</code><code>##

while($mytest = <MYFILE>) {

##</code><code>##

while( defined($mytest = <MYFILE>) ) {

##</code><code>##

while(<MYFILE>) {

##</code><code>##

         my @datas= split (/\s+/, $mytest);
         


       if ($datas[0] eq "Hello")

##</code><code>##

       if ( (split /\s+/, $mytest)[0] eq "Hello" )

##</code><code>##

       if ( (split)[0] eq "Hello" )

##</code><code>##

       $countline++ if +(split)[0] eq "Hello";

##</code><code>##

my @test1 = $countline;
print $test1[0];

##</code><code>##

while (<>) { push @wanted, $_ if +(split)[0] eq "Hello" }