use strict;
use warnings;

use Tie::File  qw( );
use Tie::Array qw( );

for my $module ('Tie::File', 'Tie::StdArray') {
   print("$module:\n");

   tie my @array, $module, 'tiefile';
   push @array, "[$_]" for 0..2;

   print(scalar(@array), "\n");
   @array = sort @array;
   print(scalar(@array), "\n");

   print("\n");
}