#!/usr/bin/perl
use strict;
use warnings;
my ($x, $y);
sub return_scalar
{
    $y++;
    return "20024";
}
sub return_list
{
    $y++;
    return ("Foo", "Bar", "Baz");
}
sub return_void
{
    $y++;
    return;
}
$y++;
# Choose one based on $x
#
if ($x eq "s")
{
    my $s = return_scalar();
}
elsif ($x eq "l")
{
    my @l = return_list();
}
else
{
    return_void();
    $y++;
}