#!/usr/local/bin/perl

# NOT TESTED

@files = map  {$_->[1]}
          sort {$a->[0] <=> $b->[0] }
          map  { /^graph_set_([[0-9]+).out$/; [ $1, $_ ] }
          grep { /^graph_set_[0-9]+.out$/ }
          glob('graph_set_*');
# lookup schwartzian transform, then read the preceding from the botto
+m up

for (@files)
{
  open(F, $mode, $_);
  # do whatever
  close F;
}
[download]

--Bob Niederman, http://bob-n.com