my $resultsize = @$searchresult;
print "Located Part Number: @$searchresult[0..$resultsize]\n"
    if ( $resultsize );