use strict;

print "input\n";
chomp(my $h= <STDIN>);
my @in = split( //, $h );

# wenn Du auf ein einzelnes Element zugreifen willst, dann wird aus dem @ ein $
print $in[1]; 

foreach (@in){ # $_ wird automatisch verwendet
    if($_ eq 'j' or $_ eq 'a'){
        print "ok";
    }
}