open FILE, "$dest";
   my @lines = <FILE>;
   close FILE;  

##</code><code>##

    use IO::File;
    my $file = new IO::File($dest, '<')  
        or die "Oops, couldn't open $dest: $!";

##</code><code>##

    open FILE, '<', $dest   
        or die "Oops, couldn't open $dest: $!";

##</code><code>##

    $a = "@{[print hello]}";
    $z = "$a";               # no output
    $z = "@{[print hello]}"; # output: hello