Help for this page
print "$_->[-1][VAL]\n" for @pile;
#!/usr/bin/perl use strict; ... # print "$_\n" for @order; return @seq; }