!#/path/to/perl

use Data::Dumper;

print Dumper(@s340Strings);

exit;