or download this
#! /usr/bin/perl -w
use Data::Dumper;
...
print Dumper @triples;
__DATA__
$VAR1 = [' ',0,4];$VAR2 = ['a','4',4];$VAR3 = [' ','8',4];$VAR4 = ['b'
+,'12',4];$VAR5 = ['c','16',8];$VAR6 = ['b','24',4];$VAR7 = [' ','28',
+3];$VAR8 = ['a','31',4];$VAR9 = ['b','35',5];$VAR10 = ['c','40',1];$V
+AR11 = ['d','41',20];