Select Code to Download

use strict;
use warnings;
...
  print "$_\t-> re=", Re( $_ ), ",  im=", Im( $_ ), "\n";
}

List: 1+8i 2+5i
1+8i    -> re=1,  im=8
2+5i    -> re=2,  im=5