tie @Card, 'Tie::File', $filecard
       or die "couldnt tie $filecard as a Tie::File $!\n";