$fred == 42 ? $config = 'k1' : $config = 'k2';

##</code><code>##

my $config = $fred == 42 ? 'k1' : 'k2';

##</code><code>##

# weird1.pl
use strict;
use warnings;
my $config;
my $fred = shift;
print "fred='$fred'\n";
$fred == 42 ? $config = 'k1' : $config = 'k2';
print "config='$config'\n";

##</code><code>##

perl weird1.pl 42

##</code><code>##

fred='42'
config='k2'

##</code><code>##

perl weird1.pl 69

##</code><code>##

fred='69'
config='k2'

##</code><code>##

$fred == 42 ? $config = 'k1' : $config = 'k2';