Help for this page
use Data::Dumper; my @bigarray = ( ... print Dumper \@bigarray; # before ... print Dumper \@bigarray; # after
splice @$_, 0, 1, split /\*/, $_->[0] for @bigarray;
foreach my $arr ( @bigarray ){ my $item = shift @$arr; unshift @$arr, split /\*/, $item; }
www.com | www.net | www.org
No recent polls found