use strict;
my @users;
open PASSWD,'<','/etc/passwd' or die $!;
while (<PASSWD>) {
  next if /^\s*$/;
  next if /^#/;
  push @users,(split /:/)[0];
}
close PASSWD;

INPUT:{
  print "Bitte Usernamen eingeben: ";
  chomp( my $input = <STDIN>);
  unless (grep $input eq $_,@users) {
    warn "Username $input nicht gefunden.\n";
    redo INPUT;
  }
}