if (@ARGV){
    foreach my $path(@ARGV){
        $path=File::Spec->rel2abs($path);
    }
    $passhash{filearrayref}=\@ARGV;
} elsif ($passhash{stdin}){   # flag to indicate input from stdin
    my $i=0;
    foreach my $path(<>){
        chomp($path);
        $path=File::Spec->rel2abs($path);
        $passhash{filearrayref}[$i]=$path;
        $i++;
    }
} else {die ("No input files specified.\a\n");}

##</code><code>##

print STDERR ("Directory \'$$pref{changedir}\' aleady exists. Overwrite?\n".
  "[Y(es)/N(o)/R(eselect destination)/C(lobber all duplicates)]".
  "\a\n");
my $answer = <STDIN>;
chomp ($answer);     # line 106 (see below)
print "$answer\n";   # for testing purposes

##</code><code>##

Use of uninitialized value in scalar chomp at script.pl line 106.