#!/usr/bin/perl -w
use Tie::File;
use strict;
 
 
my @pwfile;
 
tie  @pwfile, 'Tie::File', 'pwfile.dat' or die $!;
 
#
# Find a record
 
my $uid='kkhopper';
my $found=0;
foreach my $entry (@pwfile) {
  my @entries=split(/[\|]/,$entry);
  $found = 1 if ( $uid eq $entries[1]) and ($entries[3] eq 'shhh!' );
}
 
 
printf "WHHHOOOPPIE!\n" if $found;