Select Code to Download

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;

# Another minor comment, sql statemends end in ;
# so I try to end all mine in ;, and I always reccomend
...
                   diary_entry = ( ? ),
                   fk_user_key = ( ? )
                   WHERE diary_key = ( ? );];

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