#FIND OUT WHAT THE FIRST LETTER OF USERNAME IS &
#SET FILE NAME TO OPEN

$_      = $username;
      if (/^[a-g]/i) { $filename = 'ag';}
   elsif (/^[h-n]/i) { $filename = 'hn';}
   elsif (/^[o-u]/i) { $filename = 'ou';}
   elsif (/^[v-z]/i) { $filename = 'vz';}
   elsif (/^[0-9]/i) { $filename = '09';}
   else              { $errormsg = 'Cannot open file';
                       &Printerror;}

#SET THE COMPLETE FILE DESTINATION
$dirname = "/absoulute/path/$filename.dat";

#OPEN THE FILE
open(FILEHANDLE, "$dirname");