!/usr/bin/perl -wd

use IO::Dir;
use List::Util 'shuffle';

tie %dir, IO::Dir, ".";
@files = grep { -f } keys %dir;

@shuff = shuffle(@files);
print $shuff[$_],"\n" for 0 .. 5;