use Data::Dumper;

my $customers = [
   map {
      {
         current => [ $_ ]
      }
   } (13, 110, 10, 102, 108, 130, 10, 107, 5, 210, 1, 160, 16)
];
 
print Dumper $customers;