my %emails = (gwbush   => "\$19.95",
  			 billc  => "\$19.95",
	         igor   => "\$19.95",
	         jdoe   => "\$25.00",
	         maryp  => "\$35.00",
	         bgates => "\$50.00",
	         joelg  => "\$1.50");

my $ename;
my $weeks;

print "Enter Email address.\n";
print "\nPress 'q' to quit\n";

while (){
	print "\nEmail?\n";
    chomp ($ename = <STDIN>);
    if ($ename eq 'q'){
        print "Quiting program";
	    last;
    }
    print "Weeks worked? \n";
	chomp ($weeks = <STDIN>);
   	print "\n$ename\t$emails{$ename}\n";
   	$emails{$ename} *= $weeks;
   	print "We owe $ename\t$emails{$ename}\n";
}