use 5.012.02;
use strict;
use warnings;

my @input_string_array = qw/this that and all manner of other/;
my @output_array;

foreach my $string ( @input_string_array ) {
	push @output_array, join " ", map { ord($_) - 33 } split //, $string;
}

say $_ for @output_array;