# create the file if it does not exist
               use Fcntl 'O_RDWR', 'O_CREAT';
               tie @array, 'Tie::File', $file, mode => O_RDWR | O_CREAT;

##</code><code>##

tie (@Card, 'Tie::File', $filecard, mode => O_RDWR ) or die $!;

##</code><code>##

No such file or directory at tiefile.pl line 26.