Select Code to Download

 #! /usr/local/bin/perl -w 

use strict;
...
open (OUTPUT, ">$Outfile");
print OUTPUT Dumper(\@sim);
close(OUTPUT);

$VAR1 = [
          [
            undef,
...
            undef
          ]
        ];