#!/usr/bin/perl
use strict;
use warnings;

sub PythonDictStringToPerlHash {
    my $s = shift;
    my @a = split(/:/, $s);
    my $key = $a[0];
    $key =~ s/"//g;
    $key =~ s/ //g;
    my $b = $a[1];
    $b =~ s/\n//g;
    $b =~ s/"//g;
    $b =~ s/\[//g;
    $b =~ s/\]//g;
    $b =~ s/ //g;
    my @vals = split(/,/,$b);
    my %h;
    $h{$key} = \@vals;
    return \%h;
}

my $segmente = q( "nodes": [
    272447305,
    272447306,
    272447307,
    272447308,
    272447305
  ]);

my %h = %{PythonDictStringToPerlHash($segmente)};
my @hkeys = keys(%h);
my @zahlen = @{$h{$hkeys[0]}};
for my $i (@zahlen) {
    print "$i\n";
}