foreach(@lines) {

    if ( index( $_, '#' ) == 0 )
    {
        print "yahoo!";
    }
}