print "ENTER ACCOUNT NUMBER: ";
$acct = <>;
chomp $acct;