#!/usr/bin/perl

sub are_lost {
  print $see;
}
$mythoughts = "1000 Dreams";

#######################

open (MYMIND, "for_you") or die "without hope";
read (MYMIND, $see, $mythoughts);
close MYMIND;

@mythoughts = split(/into/, $mythoughts);
foreach $thought (@mythoughts) { are_lost; }