Select Code to Download

push(@Recs, "$USERNUM|$RECTYPE|$ASSET|$EXTK");

push(@{$Recs{$USERNUM}}, "$RECTYPE|$ASSET|$EXTK");

for my $USERNUM (keys %Recs)
{
...
    print "$USERNUM $RECTYPE $ASSET $EXTK\n";
  }
}