Using array from subroutine

In order to call them from menubuttons I moved my code into subroutines. sub open_file { if ( ! open NEWFILE, "<$file") { die "Could Not Open $file: $!" } else { my @lines = ; $message = "Open File" . $file; } } # End sub open

Re: Using array from subroutine

Thomas H. George wrote: In order to call them from menubuttons I moved my code into subroutines. sub open_file { if ( ! open NEWFILE, "<$file") { die "Could Not Open $file: $!" } else { my @lines = ; my() *creates* a new variable that is only vis