my $searchresult = search( ... );
if ($searchresult) {
    my $count = $#$searchresult;
    $count = 7 if $count > 7;
    print "Located Part Numer: @{$searchresult}[0..$count]\n";
}