open(FOO, "$myfile") || die "Could not open $myfile $!\n";
@bar=<FOO>;
shift(@bar);
close(FOO);
open(FOO, ">$myfile") || die "Could not open $myfile $!\n";
print FOO @bar;
close(FOO);