for ( split( /\n/, `find /your/path/to/txtfiles -maxdepth 1 -size +1024k -printf "%p,%b\n"`) ){
  $file= $_[0];
  $sizeink= $_[1];
}