#!/usr/bin/perl -w

use strict;

use IO::File;
use Text::CSV_XS;

{
  my $fh = new IO::File ("<$path/$database")
             or die "Can't open file: $!\n";

  my $csv = new Text::CSV_XS ({ sep_char => '|' });

  while ( my ($a,$b,$c,$d,$e,$f) = @{$csv->getline($fh)} ) {
    if ( -1 != index($s, $d) && -1 != index($r, $e) && -1 != index($m, $f) ){
      print "$b\n";
      if ($c eq "Y"){
        print "$a - tal\n";
      } elsif ($p eq "Y"){
        print "$e";
      }
    }
  }

}