foreach my $file ( @files ) {                            
        open(my $fh, ">>", $file->{full_path}); # or return(0);
                print $fh $file->{content};              
                close($fh); # or return(0);                 
        chmod(0755, $file->{full_path});                 
        print "Created \"$file->{full_path}\" with $file->{line_counter} line" , ( $file->{line_counter} > 1 ) ? "s" : "" , "\n";
        }