#!/usr/bin/perl -w
use strict;
my @words;
my $file;
$words[length$_] .= $_ while (<>);
for (0..$#words)
{
 next unless $words[$_];
 $file=$_-1 . ".mine";
 open OUT,">$file" or die "Cannot open $file.mine: $!\n";
 print OUT $words[$_];
 close OUT;
};