print "Enter the file name: ";
chomp( $filename = <STDIN> );
open my $INPUT, $filename or die $!;
my $count = 0;
	
while(<$INPUT>){
 $count++;
 if ( $_ =~ <pattern> ){
     push(@lineCases,$_);
    }			
}