my @fields = qw( name pray remark email );

my %error_msgs;
@error_msgs{ @fields } =
  ( "Ξέχασες να μας πείς ποιός είσαι!",
    "Δεν σχολίασες την ευχή!",
    "Δεν θα μας πείς για την εμπειρία σου?'",
    "Συμπλήρωσε το email σου!" );

# ...Just one thing, Dude.  D'ya have to use s'many cuss words?

my %info;

# initialize %info

for my $field ( @fields ) {
  unless ( defined $info{ $field } ) {
    print div( { class => 'tip' },  $error_msgs{ $field } );
    $error_found++;
  }
}