perl 파일을 읽고 쓰기에 대한 질문

안녕하세요.perl에서 파일 읽기/쓰기에 대해서 질문을 드립니다.
물론 기본적인 perl에서 읽고/쓰기에 대한 방법은 알겠는데 이게 아래와 같이 하고자 하면 파일이 써지지 않아서 질문을 드립니다.
내용은 아래와 같습니다.
===========================
C드라이브에는 file_list 라는 파일이 있고 그안에는 아래와 같은 내용이 있습니다.

a
b
c

그래서 아래와 같이 파일(file_list)을 읽어서 각각 파일 내용(a, b, c)에 대당하는 파일(.ctl)을 생성하고 그 안에 다음과 같은 내용(Have a time)을 쓰고자 합니다.

my $file = "C:/file_list";

open(READ_FILE, $file) || die "can't open files";
while(my $load_list = ) {
chomp $load_list
open FH, ">","$load_list.ctl" || die "can't print Outpufile";
print FH "Have a time $load_list\n";
}
close FH;
close(READ_FILE);

위에서도 설명한 것처럼 file_list에 있는 a, b, c를 잀어서 While 문으로 각각 a.ctl, b.ctl, c.ctl 파일을 생성하려고 합니다.
물론 a.ctl, b.ctl, c.ctl 의 파일에는 "Have a time a", "Have a time b", "Have a time c" 이런 내용을 print 하려 하는데
위에처럼 하면 아예 파일이 생기지 않더군요. 문법적으로는 에러 없이 실행이 되긴 하는데 파일이 왜 안생길까요?