if(-f $DICTFILE and -r $DICTFILE){
  open( DICTFILE, "$DICTFILE" ) || die( "Couldn't open file" );
 my( @filelines ) = <DICTFILE>;
 close( DICTFILE );
 foreach $line (@filelines) {
   push( @lines, $line ) if( $line =~ m/\w/ );
 }
 @filelines = ();
}
else{
  print "kann $DICTFILE nicht lesen/finden";
}