print Dumper(\@sim);

##</code><code>##

open my $in_fh, '<', $Infile or die "Can not open file $Infile: !$\n"