push (@output,"\nBlueprint provisioned at $time_blueprint .....: $blueprint_id (Type: $order_type)\nTBNFs provisioned for this blueprint .....: ");

foreach my $line(@output){
  my @vars = $line =~ /(\$\w+)/sg;
  print $_,"\n" for(@vars);
}