print "\n-----------\n";
    print "There are ". scalar @pieces .
          " elements in \@pieces from ".
          "filename: $file\n";

    my $c      = 0;

    for ( @pieces ) {
        print "element ", ++$c, ": $_\n";
    }
    print "-----------\n";