#! /usr/bin/perl -w
$mask = $ARGV[0];
$position = $ARGV[1];

opendir(DIR,".");
my @files = grep { $_ ne '.' && $_ ne '..' }readdir DIR;
closedir(DIR);
foreach(@files)
  {
  if ($_ =~ m/^$mask/ig) {
    push(@result,$_)
    }
  }
print "Your file is: ".$result[$position-1]."\n";