# Somewhere earlier...
my @radar = ();
push @radar, [$fileh, $repoch] for (1..5);

# ... then:
for (@radar){
   my ($fileh, $repoch) = @$_;

   # ... continue as before.
}