Select Code to Download

use List::Util qw( max );

...
      $i <= $#ham  ? $ham[$i]  : '',
   );
}

use List::Util qw( max );

...
   Spam => \@spam,
   Ham  => \@ham,
]);