my $patternlist = join( "\t", @patterns );

if( $patternlist =~ /\t$input\t/ )
{
   print $input;
}