#!/bin/ksh

myexe <<-EOF
param1
EOF

##</code><code>##

my %NameAlreadyProcessed;
for my $i (0 ..$#{$Details}) {
  my $Name = $Details->[$i][0];
  my $contact = $Details->[$i][1];
  next if $NameAlreadyProcessed{$Name};
  $NameAlreadyProcessed{$Name} = 1;

  my $result = qx{ myexe $contact };

  print "$Name $result\n";
}