Select Code to Download

@array1
abc abc abc abc abc
abc abc abc2 abc3 abc4 abc5
abc abc abc1 abc2

@array1 = (
  'abc abc abc abc abc',
  'abc abc abc2 abc3 abc4 abc5',
  'abc abc abc1 abc2'
);

use Data::Dumper;
$Data::Dumper::Useqq=1;
print Dumper \@array;