#!/usr/bin/perl

use strict; 
use warnings;
use feature "say";

my $nukletoid_kette = '';
my @basen_anzahl;

while ( my $zeile = <DATA> ) {  # Daten aus DATA-Bereuich einlesen
  chomp $zeile;               # Zeilenendezeichen entfernen
  next if !length $zeile;     # Leerzeile überspringen

  my ( $base, $anzahl ) = $zeile =~ m{([ATGCatgc]):(\d+)}; # Base (Buchstaben ATGC) und Anzahl (mehrere Ziffern) aus Zeichenkette extrahieren
  
  push @basen_anzahl, $anzahl;                         # Wert in Array schieben
}

say "Häufigkeitsabfolge: ";
say join " ", @basen_anzahl;

__DATA__
A:1
T:21
G:10 
C:4
A:2
G:1
T:5
A:2
C:7
T:2
A:1
T:1
G:4