Select Code to Download

use List::MoreUtils qw(zip);

...
}  @$data;