use strict;
use warnings;

my %oss = (linux => \&isLinux, Windows => \&isWindows, undef => \&isOther);
my @array = qw(linux Windows wibble);

exists $oss{$_} ? $oss{$_}->() : $oss{undef}->() for @array;


sub isLinux {
    print "This is linux VM" . "\n";
}

sub isWindows {
    print "This is a Windows VM" . "\n";
}

sub isOther {
    print "I have no idea what it is" . "\n";
}