use strict;
           use CGI;

           #use some mail module like MIME::Lite 

           open(Filenm,"filenames.csv") || die "the file is not ready 
+to be opened";

           while (<Filenm>){

              local $/;
              # Here the file's size is important, for a lesser size t
+his is ok

              my @pindigits = split(',',$_);
              $pinforphonecard = shift(@pindigits);

              #    have the cgi stuff and MIME::Lite or any that you u
+se for mailing part with the $pinforphonecard as the one to be let to
+ send 

              # then go ahead and remove the $pinforphonecard and a co
+mma from the file 

              $_ =~ s/$pinforphonecard,//g;
              last;

            }
[download]

Hi there, Well it doesn't have to be 'csv'...but so long as the number(s) can be retrieved and then automatically be deleted (or blanked out from further usage!) from some type of file on the server. Thank you for all the help/advice so far!

Well it doesn't have to be a 'csv' file, it can be another type of file...so long as when a 'pin number' is returned to the customer via broswer or email..that that number is then deactivated from the server 'storage file'.