1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6my ($x, $y);
7
8sub return_scalar
9{
10    $y++;
11
12    return "20024";
13}
14
15sub return_list
16{
17    $y++;
18
19    return ("Foo", "Bar", "Baz");
20}
21
22sub return_void
23{
24    $y++;
25
26    return;
27}
28
29$y++;
30
31# Choose one based on $x
32#
33if ($x eq "s")
34{
35    my $s = return_scalar();
36}
37elsif ($x eq "l")
38{
39    my @l = return_list();
40}
41else
42{
43    return_void();
44    $y++;
45}
46
47