use strict;

##</code><code>##

use warnings;

##</code><code>##

Scalar value @hostname_short[0] better written as $hostname_short[0]

##</code><code>##

@hostname_short = split(/\./,$fqdn,2);

my $hostname = "@hostname_short[0]";

##</code><code>##

my $hostname = (split /\./, $fqdn, 2)[0];