Try it

#!/usr/bin/perl
print "Food? ";
$food = <STDIN>;
chomp $food;
print "Number? ";
$count = <STDIN>;
chomp $count;
print "I ate $count gallons of $food\n";