Read the friendly manual more thoroughly:

perlsyn: "The experimental "given" statement is *not automatically enabled*; see "Switch Statements" below for how to do so, and the attendant caveats."

Rough digest of the referenced matter: From 5.10.1 on one can say use feature "switch"; and from 5.14 onward, you can enable switch (given/when) by specifying the Perl version.

When done per the doc, execution (under 5.16/32bit Win7) is as follows:

C:\>perl 1078449.pl
2 is Two
C:\>

[download]

using your code with addition of line 3, specifying a version = or > 5.14:

use strict;
use warnings;
use 5.016;

sub test2 {
    my $var = 2;
    my $i;
    given ($var){
        when(1) { $i = "One"; }
        when(2) { $i = "Two"; }
        when(3) { $i = "Three"; }
        default { $i = "Other"; }
    }    
    print "$var is $i";
}

test2();

[download]

Questions containing the words "doesn't work" (or their moral equivalent) will usually get a downvote from me unless accompanied by:
  1. code
  2. verbatim error and/or warning messages
  3. a coherent explanation of what "doesn't work actually means.

In reply to Re: Given When Syntax by ww
in thread Given When Syntax by Deep_Plaid

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.