$staffdept{$staff}
$appstaffwk{$app}{$staff}
##</code><code>##

use MLDBM qw(DB_File Storable);
tie %staffdept, 'MLDBM', $staffdeptfile, O_CREAT|O_RDWR, 0640 or die $!;
tie %appstaffwk, 'MLDBM', $appstaffwkdb, O_CREAT|O_RDWR, 0640 or die $!;