$user = $file;

##</code><code>##

chdir("$hdir/$user") || die "Cant Change to directory $hdir/$user: $!\n";

##</code><code>##

my $number = <STDIN>;
chomp $number;
die "Invalid selection\n"    if $number =~ /\D/;
die "Number given too big\n" if $number > scalar(@ulist);
my $user = $ulist[$number];

chdir("$hdir/$user") || die "Cant Change to directory $hdir/$user: $!\n";