Select Code to Download

use Modern::Perl qw/2015/;
use Data::Dump qw/dump/;
use List::MoreUtils qw/zip natatime/;
...
}

say dump @all;

(
  {
    CAR1   => 1,
...
    NUMBER => "00003",
  },
)