Select Code to Download

(UNTESTED)

...
  my( $section, $item, $count ) = @$_;
  printf "%5d %7s %7s\n", $count, $section, $item;
}

(UNTESTED)

...
{
  printf "%5d %7s %7s\n", @{$_}{qw( count section item )};
}