#!/usr/bin/perl

use strict;
use warnings;

# überflüssige Liste und Leerstring entfernt; dafür String geändert:
print "Geben Sie eine Zahl ein: ";

# Dateneingabe und Umbruch Entfernen kombiniert
chomp( my $zahl_a = <STDIN> );

my $zahl_b= 2;

if( $zahl_a%$zahl_b == 0 )   {

  # Strings werden mit '.' verknüpft, nicht mit '+'
  # ausserdem kann print Listen verarbeiten; das nutzen wir hier mal
  # und 'a' ist ein bareword; deine variable heisst doch $zahl_a
  # Umbruch eingefügt
  print"Das Ergebnis der Division von ", $zahl_a, "ergibt eine Nichtkommazahl.\n";
}
else {
  # s.o.
  print "Das Ergebnis der Division von ", $zahl_a, " durch 2 ergibt eine Kommazahl.\n"; 
}