Select Code to Download

7
1 2 20
2 3 15
...
5 7 25
6 7 36
-1

#!/usr/bin/perl
use warnings;
use strict;
...
}

print Dumper @item_array;

$VAR1 = [
          '6',
          '7',
...
$VAR10 = $VAR1;
$VAR11 = $VAR1;
$VAR12 = $VAR1;