open FH, "< $indir/$file" or printf "can't open %s\n",$file;

##</code><code>##

open FH, "< $indir/$file" or warn "can't open $file :: $!" and return;

##</code><code>##

   $line = <FH>;
    $_ = $line;
    close FH;

    $field1 = m/^Clock/;                                 # Check for C
+lock at beginning of file

    printf "\n$file";
    if ( $field1 == "1"){


##</code><code>##

   $line = <FH>;
    close FH;

    printf "\n$file";
    if ( $line =~ m/^Clock/){

##</code><code>##

sub ret_a_ref {
my @arr;
...
return \@arr;
}

my $a_ref = ret_a_ref();
my $first = $a_ref->[0];
...