#!/usr/bin/perl -w
$readfile = "simplecin.txt";
print "Enter a search word\n";
$searchword = <STDIN> ;
chomp($searchword);
print "Enter another search word\n";
$searchword2 = <STDIN> ;
chomp($searchword2);
open ($filein, '<', "$readfile" )
    or die "cannot open $readfile: $!";
@list = <$filein>;
print @list;
print "and now I found a match of \n";
@found = grep {/${searchword}\|${searchword2}/} @list;
@found = grep {/^one/} @list;
print @found;