Since I doubt anyone else will suggest it, here's a perlform-based solution:

#!/usr/bin/env perl 
use strict;
use warnings;

my @har = (
    'Belgian Waffles',
    'Berry-Berry Belgian Waffles',
    'French Toast',
    'Homestyle Breakfast',
    'Strawberry Belgian Waffles',
);
my @prices = qw/ 5.95 8.95 4.50 6.95 7.95 /;
my ($name, $price);

format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<< @#.##
$name, $price
.

for my $i (0 ..$#har) {
    $name = $har[$i];
    $price = $prices[$i];
    write;
}
[download]

For that kind of formatting, I've used Text::Table as suggested by hippo. I'm not going to claim that this is the "best" way of doing, but I'd probably resort to using Text::Table if needed to format data into columns.