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;


##</code><code>##

# Another minor comment, sql statemends end in ;
# so I try to end all mine in ;, and I always reccomend
# others do as well (;)
    my $SQLText = qq[ UPDATE diary SET
                   diary_title = ( ? ),
                   diary_entry = ( ? ),
                   fk_user_key = ( ? )
                   WHERE diary_key = ( ? );];

##</code><code>##

$entry =~ s/\n\n/<P>/g;
$entry =~ s/\n/<br>/g;