#!/usr/bin/perl -w

use strict;
use Data::Dumper;



print "Enter the part you which to search for: ";
my $part = <STDIN>;
chomp($part);

my $searchresult = &search(part => $part);

if (defined $searchresult) {
    print "Located part No. $part: $$searchresult[1]\n";
} else {
    print "Your part ($part) could not be found...\n";
}
# This routine will accept a part number as an anonymous
# hash, and seach thru' a text file returning the entire
# record (pipe delimited) of the 1st occurrence
sub search {
    my %args = @_;
    my $retval;

    local*FH;
    open (FH, './parts.txt') || die "Cannot open file: ($!)";
    my @parts = <FH>;
    foreach my $line (@parts) {
        my @fields = split(/\|/, $line);
        if ($args{part} eq $fields[0]) {
            $retval = \@fields;
            last;
        }
    } 
    close FH;
    return $retval;
}