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