Select Code to Download

use Data::Dumper;

...
];
 
print Dumper $customers;

print $customer->[8]->{current}->[0];

my @sorted = sort {
   $a->{current}->[0] <=> $b->{current}->[0]
} @$customer;

print Dumper \@sorted;