Select Code to Download

use List::MoreUtils qw/pairwise each_array/;

...
while ( my ( $costs, $exp ) = $iter->() ) {
    printf "%10s %10s\n", $costs, $exp;
}

pairwise

...
       ONE          1
       TWO          2
     THREE          3