#!bin/perl
use strict;
use warnings;
use File::Copy qw(move);

my $directory="/home/porter/blue";
my @names;
opendir(DIR, $directory) or die "couldn't open $directory: $!\n";
my @files = readdir DIR;
my $a = @files;

@names = ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p");

for (my $i=0; $i < $a; $i ++) {
     move $files[$i], $names[$i];
                };

closedir DIR;