Filehandle within foreach loop

[perl kamal]

Hello All,

I would like to read multiple files and process them.But we could read the
first file alone and the rest are skipped from the while loop. Please
correct me where am i missing the logic.Thanks.

use strict;
use warnings;
my @files=qw(Alpha.txt Beta.txt Gama.txt);

foreach my $file (@files)
{
open (my $FH, $file) or die "could not open file\n";

while( my $line = <$FH> ){
#[process the lines & hash construction.]
}
close $FH;
}

Regards,
Kamal.