open IN,'<','/home/scripts/imageoutcome.txt' or die "Could not open $infile : $!";
my %count  = ();
my @lines  = ();
while (<IN>){
  push @lines,$_;
#  print $_;
  if (/^(\S+)/){
    ++$count{$1};
  }
}
close IN;

open OUT,'>','/home/scripts/outcome.txt' or die "Could not open $outfile : $!";
#print @lines;
for (@lines){
  if (/^(\S+)/){
   print $count{$1};
   print OUT $_ if $count{$1} > 0;
  }
}
close OUT;