#!/usr/bin/perl -w
use strict;
my $beer  = "Corona";
my $belly = "My Tummy";
my $completedproject;
my $whew = "DONE";
my $chips = "Salt and Vinegar";

if ( /$completedproject/ =~ $whew ) { &done }
else { print "BURP!  Shoulda used Strict!\n"; }

sub done {
    open( BEER,  "$beer" );
    open( TUMMY, ">$belly" );
    while (<BEER>) {
        foreach $completedproject (<BEER>) {
            print TUMMY "$beer";
            print TUMMY "$chips";
        }
    }
    close(BEER);
    close(TUMMY);
}