foreach $line (@text) {                 
    my $text =$text[$line];