Another way to print the contents would be by using a module called Data::Dumper

!#/path/to/perl

use Data::Dumper;

print Dumper(@s340Strings);

exit;
[download]