sub match {
        while (<IMAGES>) {

                if ($_ =~ /^(\s+)MVA/o) {
                        $_ =~ s/(\s+)//o;
                        chop;
                        #my ($tape_id, $expiration, $date, $time, $status) = split (/ /);
                        my ($blank, $tape_id, $expiration, $date, $time, $status)=split(/\s+/);
                        #create_entry($tape_id, $expiration, $date, $time, $status)
                        create_entry($blank, $tape_id, $expiration, $date, $time, $status)
                                if ($status eq "(FROZEN)");
                                #if ($status eq /FROZEN/);
                }
        }
}