Select Code to Download

my @arr = ();
while (<PIR>)
...
}

print "@arr\n";

# simplified version: ignore header stuff:

...
}

print join " ", keys %hash, "\n";