if ( $admin eq $pw ) {
foreach $line(@lines) {
( $num,$sign_name,$sign_email,$sign_homepage,$sign_icon,$sign_time,$si
+gn_msg ) = split ( /__/, $line ) ;
if ( $modnum < $num ) {
    push @largedata , $line ;
    }
elsif ( $modnum eq $num ) {
    $sign_msg="$adminmsg";
    $new = join ('__',( $modnum , $sign_name , $sign_email , $sign_hom
+epage , $sign_icon , $sign_time , $sign_msg));
    push @modifydata , $new;
    }
elsif ( $modnum > $num) {
    push @lessdata , $line ;
    }
    
}


open(WRITE,">guestbook.dat");
print WRITE @largedata;
print WRITE @modifydata;
print WRITE "\n";
print WRITE @lessdata;
close(WRITE);
[download]

yeah , i have done it
anything need to improve?