while ( <$fh> ) { # each line is loaded into $_ in turn
    my @characters = split //;
}