use Tie::File;

sub loadmeal {
my($meal) = $_[0];
tie @meals, 'Tie::File', "/home/shaolin/public_html/monkmeals.txt" or die ...;
for (@meals) {
    s/leeming=.*/leeming=$meal/
}
untie @meals;