print sprintf "Have %d items\n", 0+@lines;

my $item = $lines[0];
my $outfile = $item . '_' . $nm;
print "$outfile\n";