#!/usr/bin/perl -w
use strict;

my $myvar;
my $val1;

$myvar = defined $val1 ? $val1 : "Blah";
print $myvar;