#!/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;
}