get specific item from deck.mt0

#!/usr/local/bin/perl

$dirname = "/remote/amscae35/chihwang/Toshiba2/SIS/C7LBPCLKX4H_hs/runtime/spice/C7LBPCLKX4H/hold_hbm__EN__hl__CP__lh__ACQ_1.sif_0/1";
opendir(DIR, $dirname) or die "can't opendir $dirname: $!";
while (defined($file = readdir(DIR))) {
$dut = $dirname."/".$file;
## print $dut."\n";
open(h1, "<$dut");
open(h2, ">temp.cir");
while(<h1>){
chop $_;
#print h2 $_;
#print h2 "\n";
@ary=split(" ",$_);
if($ary[0] eq "1.0000000000"){
print $dut."\n";
print $ary[24]."\n" ;}
}
}
closedir(DIR);