given-when-default statement in Perl

As I have discussed in my previous article that switch case deprecated in Perl 5. Three new keywords: given, when and default got introduced in Perl 5 that provides functionality similar to switch case.

Syntax:

given (argument) {
  when (condition) { statement(s); }
  when (condition) { statement(s); }
  when (condition) { statement(s); }
  .
  .
  .
  default { statement(s); }
}

Example:

#!/usr/local/bin/perl
use v5.10;
no warnings 'experimental';
printf "Enter any number:";
$num = <STDIN>;

given($num){
  when ($num>10) {
    printf "number is greater than 10\n";
  }
  when ($num<10) {
    printf "number is less than 10\n";
  }
  default {
    printf "number is equal to 10\n";
  }
}

Output:

Enter any number:10
number is equal to 10