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