while (<>) {
            push @array, $str ;
}