#!/usr/local/bin/perl
use warnings;
use strict;
my $inputfile = "file1.txt"; # assign the contents of netlist to a scalar
open FH,$inputfile; # dump the contents of scalar to a file handler
my @results = <FH>; # use an array called results, a vector to store the items...