my $file = ; chomp $file; $file ||= "somelist";