#!/usr/bin/perl

use strict;
use warnings;


open FIN, "<find_cardnum.txt"   or die;
while (<FIN>) {
    chomp;
    my $cardname = $_;

    
}