Help for this page

Select Code to Download

Select or download this

my @old = qw(20120301Customer100 20120402Alsocust200 20130102Nothercu3
+00); 
my (@new, $item);

...
for $item(@new) {
    say $item;
}