for my $i(@array) { print $i.$jerky."\n" }
print $_.$jerky."\n" for @array;
print shift(@array).$jerky."\n" while @array;
print map $_.$jerky."\n", @array;
print map { "${_}${jerky}\n" } @array;