#!/usr/bin/perl -w
my $dir="/home/lcollins";
open MISS, "$dir/miss" or die "can't open $!";# file has 1 line "10.20.46.13".
%clocks=("10", 0,"10.20.20.10", 0,"10.20.46.13", 0,"10.20.46.37",0);
my $miss=<MISS>;
#chomp $miss;
#my $miss="10";
print "$miss"
if (exists $clocks{$miss}){
print "Yup it's there\n";
}