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

my $x = shift();                     #Übergabe sichern
my $n = 1;                            #$n auf 1 setzen
while($x) {                             #Solange $x war ist
        $_ +=$n*chop($x);       #Addiere $n*letztes Element von $x und entferne es
        $n *= 2;                        #Und $n man 2 und in $n sichern
}

print $_ . "\n";                        #Und ausgeben