#!/usr/bin/perl

use strict;
use warnings;
use List::Util qw/any/;

sub foo {
	###my $undeclared_variable = "Printing inside foo()\n";
	print $undeclared_variable;
}

sub bar {
	my $params = {something => 'whatever'};
	if (any { $params->{something} eq $_ } qw(some options or whatever)) {
		print "Printing inside bar()\n";
	}
}

foo();
bar();