my $bar = join $/, @bar;
$bar .= $/;

open my $foo, '<', \$bar or die $!;
while (<$foo>) {
    print $., ' -> ', $_;
}
close $foo or die $!;