Help for this page
use Data::Dumper; ... ]; print Dumper $customers;
print $customer->[8]->{current}->[0];
my @sorted = sort { $a->{current}->[0] <=> $b->{current}->[0] } @$customer; print Dumper \@sorted;